home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / LetItRain.AMOS / LetItRain.amosSourceCode
Encoding:
AMOS Source Code  |  1997-10-20  |  1.2 KB  |  48 lines
  1. Set Buffer 100
  2. Screen Open 0,512,512,4,$8004
  3. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  4. Palette 0,$4,$999,$99F
  5. Ink 1 : Extension_8_05E6 256,256,255
  6. Double Buffer 
  7. Autoback 0
  8. MXRAIN=100
  9. DIS=32768/2
  10. Dim RAI(MXRAIN,3),WAV(MXRAIN,2)
  11. For A=1 To MXRAIN
  12.   W= Extension_8_11B8(1024) : R= Extension_8_11B8(DIS)
  13.   RAI(A,0)= Extension_8_1114(W,R)
  14.   RAI(A,1)= Extension_8_1106(W,R)
  15.   RAI(A,2)=30+Rnd(200)
  16.   RAI(A,3)=RAI(A,2)-Rnd(4)-2
  17.   WAV(A,2)=100
  18. Next 
  19. Do 
  20.    Extension_8_121C 0,1
  21.   For A=1 To MXRAIN
  22.     If WAV(A,2)<8
  23. '      Ink 2 : Ellipse WAV(A,0),WAV(A,1),WAV(A,2),WAV(A,2) 
  24.        Extension_8_1372 WAV(A,0),WAV(A,1),WAV(A,2),1
  25.       Inc WAV(A,2)
  26.     End If 
  27.     X1=RAI(A,0)/RAI(A,2)+256
  28.     Y1=RAI(A,1)/RAI(A,2)+256
  29.     X2=RAI(A,0)/RAI(A,3)+256
  30.     Y2=RAI(A,1)/RAI(A,3)+256
  31.     Add RAI(A,2),4
  32.     Add RAI(A,3),4
  33.     If RAI(A,2)>100
  34.       WAV(A,0)=X1
  35.       WAV(A,1)=Y1
  36.       WAV(A,2)=2
  37.       W= Extension_8_11B8(1024) : R= Extension_8_11B8(DIS)
  38.       RAI(A,0)= Extension_8_1114(W,R)
  39.       RAI(A,1)= Extension_8_1106(W,R)
  40.       RAI(A,2)=30+ Extension_8_11B8(50)
  41.       RAI(A,3)=RAI(A,2)- Extension_8_11B8(4)-2
  42.     End If 
  43.      Extension_8_1030 X1,Y1 To X2,Y2,2,2
  44. '    Turbo Draw X1-1,Y1 To X2-1,Y2,2,2   
  45.   Next 
  46. '  Blitter Fill 0,1
  47.   Screen Swap : Wait Vbl 
  48. Loop